home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / shared.dir / 07584_MAC_QT.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.9 KB  |  101 lines
  1. global gDVMovieID, gDVMovieName, gDVMovieLoc
  2.  
  3. on MAC_QT_Init
  4.   openXLib("QTMovie")
  5.   return 1
  6. end
  7.  
  8. on MAC_QT_Done
  9.   closeXLib("QTMovie")
  10. end
  11.  
  12. on MAC_QT_Use aFName
  13.   set gDVMovieName to aFName & ".mov"
  14. end
  15.  
  16. on MAC_QT_Play aFrom, aTo
  17.   if gDVMovieName <> EMPTY then
  18.     QTMovie("OpenMovie", "Direct", gDVMovieName, gDVMovieLoc, "Invisible")
  19.     set gDVMovieID to the result
  20.     set gDVMovieName to EMPTY
  21.   end if
  22.   if aTo = -1 then
  23.     QTMovie("Direct", gDVMovieID, "Set", "SegmentPlay", "false")
  24.   else
  25.     QTMovie("Direct", gDVMovieID, "Set", "SegmentStart", string(aFrom))
  26.     QTMovie("Direct", gDVMovieID, "Set", "SegmentEnd", string(aTo))
  27.     QTMovie("Direct", gDVMovieID, "Set", "SegmentPlay", "true")
  28.   end if
  29.   QTMovie("Direct", gDVMovieID, "Show")
  30.   QTMovie("Direct", gDVMovieID, "Play")
  31.   DVIdle()
  32. end
  33.  
  34. on MAC_QT_Pause
  35.   QTMovie("Direct", gDVMovieID, "Pause")
  36. end
  37.  
  38. on MAC_QT_PauseP
  39.   QTMovie("Direct", gDVMovieID, "Get", "rate")
  40.   return value(the result) = 0
  41. end
  42.  
  43. on MAC_QT_Resume
  44.   QTMovie("Direct", gDVMovieID, "Play")
  45. end
  46.  
  47. on MAC_QT_SetPos aPos
  48.   QTMovie("Direct", gDVMovieID, "Set", "CurrTime", string(aPos))
  49. end
  50.  
  51. on MAC_QT_GetPos
  52.   QTMovie("Direct", gDVMovieID, "Get", "CurrTime")
  53.   return the result
  54. end
  55.  
  56. on MAC_QT_PlayP
  57.   QTMovie("Direct", gDVMovieID, "Get", "rate")
  58.   return value(the result) <> 0
  59. end
  60.  
  61. on MAC_QT_SetPlayArea aX, aY, aW, aH
  62.   set gDVMovieLoc to string(aX) & "," & string(aY)
  63. end
  64.  
  65. on MAC_QT_FullScreen aFlag
  66.   nothing()
  67. end
  68.  
  69. on MAC_QT_FullScreenP
  70.   return 0
  71. end
  72.  
  73. on MAC_QT_FrameRate
  74.   QTMovie("Direct", gDVMovieID, "Get", "MovieScale")
  75.   return the result
  76. end
  77.  
  78. on MAC_QT_Close
  79.   QTMovie("Direct", gDVMovieID, "Dispose")
  80. end
  81.  
  82. on MAC_QT_Idle
  83.   QTMovie("Direct", gDVMovieID, "Idle")
  84. end
  85.  
  86. on MAC_QT_Stop
  87.   DVPause()
  88. end
  89.  
  90. on MAC_QT_StopP
  91.   return DVPauseP()
  92. end
  93.  
  94. on MAC_QT_Show
  95.   QTMovie("Direct", gDVMovieID, "Set", "Visible", "true")
  96. end
  97.  
  98. on MAC_QT_Hide
  99.   QTMovie("Direct", gDVMovieID, "Set", "Visible", "false")
  100. end
  101.